warning at startup

[john_cash]

Hello
the macro in Private Sub Workbook_BeforeClose to the close inserts the writing in the enabled sheets:

"you need to enable macros to view this workbook"
"devi attivare le macro per visualizzare questo workbook"

when the workbook starts, if the macros are activated the word disappears.
Is it possible that at the end of the workbook the writing does not appear but only at startup and then disappears if the macros are activated?
I hope I have explained.

Option Explicit

Private Sub Workbook_Open()
    
    
     Dim nomefoglio As Variant
     Dim Urec   As String
    
  '-------------------------------------------
 'se non attivate le macro il workbook resta bloccato
     Dim fogli As Worksheet
    
    Application.ScreenUpdating = False
    
    'For Each fogli In Worksheets
     For Each fogli In ThisWorkbook.Sheets
      If fogli.Name <> "AA" And fogli.Name <> "BB" And fogli.Name <> "CC" And fogli.Name <> "DD" Then
       fogli.Unprotect "987654"
       fogli.Range("E1:H1").ClearContents
       fogli.Unprotect "987654"
       End If
    Next
    
   Application.ScreenUpdating = True
 '-------------------------------------------
                  
  
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
  
    Dim nomefoglio As Variant
    Dim Urec   As String
      
  '-----------------------------------------------
 'se non attivate le macro il workbook resta bloccato
    Dim fogli As Worksheet
 
 Application.ScreenUpdating = False
    'For Each fogli In Worksheets
     For Each fogli In ThisWorkbook.Sheets
      If fogli.Name <> "AA" And fogli.Name <> "BB" And fogli.Name <> "CC" And fogli.Name <> "DD" Then
       fogli.Unprotect "987654"
     fogli.Range("E1:H1").Value = "devi attivare le macro per visualizzare questo workbook"
       fogli.Protect "987654"
       End If
    Next

 Application.ScreenUpdating = True
 '-----------------------------------------------
          
End Sub

john

 

[DanteAmor]

You mean it appears only on the first sheet?

 

[john_cash]

no sheet other than

If fogli.Name <> "AA" And fogli.Name <> "BB" And fogli.Name <> "CC" And fogli.Name <> "DD" Then

 

[DanteAmor]

Sorry, but I don't understand.
I tested your code and it works.
What is the problem or what change do you want to make?

 

[john_cash]

Is it possible that at the close of the workbook the writing:

"you need to enable macros to view this workbook"
"devi attivare le macro per visualizzare questo workbook"

does not appear but only at open the workbook and then disappears if the macros are activated?

john

 

[DanteAmor]

Is it possible that at the close of the workbook the writing:

"you need to enable macros to view this workbook"
"devi attivare le macro per visualizzare questo workbook"

does not appear but only at open the workbook and then disappears if the macros are activated?

john

All I see is that the file needs to be saved.


Try this,

Add this line in Workbook_BeforeClose

ThisWorkbook.Save

Option Explicit


Private Sub Workbook_Open()
    
    
     Dim nomefoglio As Variant
     Dim Urec   As String
    
  '-------------------------------------------
 'se non attivate le macro il workbook resta bloccato
     Dim fogli As Worksheet
    
    Application.ScreenUpdating = False
    
    'For Each fogli In Worksheets
     For Each fogli In ThisWorkbook.Sheets
      If fogli.Name <> "AA" And fogli.Name <> "BB" And fogli.Name <> "CC" And fogli.Name <> "DD" Then
       fogli.Unprotect "987654"
       fogli.Range("E1:H1").ClearContents
       fogli.Unprotect "987654"
       End If
    Next
    
   Application.ScreenUpdating = True
 '-------------------------------------------
                  
  
End Sub






Private Sub Workbook_BeforeClose(Cancel As Boolean)
  
    Dim nomefoglio As Variant
    Dim Urec   As String
      
  '-----------------------------------------------
 'se non attivate le macro il workbook resta bloccato
    Dim fogli As Worksheet
 
 Application.ScreenUpdating = False
    'For Each fogli In Worksheets
     For Each fogli In ThisWorkbook.Sheets
      If fogli.Name <> "AA" And fogli.Name <> "BB" And fogli.Name <> "CC" And fogli.Name <> "DD" Then
       fogli.Unprotect "987654"
     fogli.Range("E1:H1").Value = "devi attivare le macro per visualizzare questo workbook"
       fogli.Protect "987654"
       End If
    Next
[COLOR=#ff0000][B]   ThisWorkbook.Save[/B][/COLOR]
 Application.ScreenUpdating = True
 '-----------------------------------------------
          
End Sub

 

[john_cash]

Hi danteamor.
Thanks for the added function.
I have to try next week in my office.
I salute you and thanks again
john

 

[DanteAmor]

ok, let me know if you have any doubt.