"Be careful! Parts of your document may include personal information that cannot be removed by the document inspector"

[scotthannaford1973]

Hi all

I am building a new spread sheet and have included some code that when a cell changes, it puts the date and time of change in another cell - the code is below, used it before and it works as well as always. Unfortunately I have a new laptop and when I save the file, which now has the coding in, it always gives me the annoying message:

"Be careful! Parts of your document may include personal information that cannot be removed by the document inspector"

Saves okay, but how do I stop this coming up? even if I remove the code and save it, same bleddy message!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo TheEnd
Dim r As Long: r = Target.Row
If r < 2 Then Exit Sub 'rules apply to row 3 onwards
If Not Intersect(Range("Q:R "), Target) Is Nothing Then
Application.EnableEvents = False
Range("R" & r) = Date & " - " & Time
End If
TheEnd:
Application.EnableEvents = True
End Sub

 

[MARK858]

In Excel Options|Trust Center|Privacy Options try unchecking 'Remove personal information from file properties on save'.

 

[Joe4]

It is not the code that is causing the issue (it is a setting, as Mark points out), but you may be able to handle it by code.
See here for various solutions/workarounds to this issue: https://superuser.com/questions/1313581/how-to-remove-document-inspector-warning-in-excel

 

[scotthannaford1973]

cheers - just off to stand in the corner in shame. obvious, really!

 

[KhanichSkill]

Hi all

I am building a new spread sheet and have included some code that when a cell changes, it puts the date and time of change in another cell - the code is below, used it before and it works as well as always. Unfortunately I have a new laptop and when I save the file, which now has the coding in, it always gives me the annoying message:

"Be careful! Parts of your document may include personal information that cannot be removed by the document inspector"

Saves okay, but how do I stop this coming up? even if I remove the code and save it, same bleddy message!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo TheEnd
Dim r As Long: r = Target.Row
If r < 2 Then Exit Sub 'rules apply to row 3 onwards
If Not Intersect(Range("Q:R "), Target) Is Nothing Then
Application.EnableEvents = False
Range("R" & r) = Date & " - " & Time
End If
TheEnd:
Application.EnableEvents = True
End Sub

Do you have write VBA code with word “hide”? If yes, please change that word to another one.

 

[Joe4]

Do you have write VBA code with word “hide”? If yes, please change that word to another one.

I do not understand this comment.
Is there a question here?

 

[KhanichSkill]

I do not understand this comment.
Is there a question here?

Sorry, I’m not good at English, But Can I show my case.
I wrote the code for closing the user form as below

Sub Test( )
Userform1.Hide
End

and after that, I always found this warning when I clicked to save.

"Be careful! Parts of your document may include personal information that cannot be removed by the document inspector"

And then , I changed new code as below

Sub Test( )
Unload Me
End

Finally, the warning did not show when I clicked to save anymore.

 

[Joe4]

And then , I changed new code as below

Sub Test( )
Unload Me
End

Finally, the warning did not show when I clicked to save anymore.

So, sounds like you already found a solution then, and are no longer in need of assistance.
Let us know if otherwise.