inkorten vba code mogelijk?

[westra77]

de volgende code:

 Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Blad1.Visible = xlSheetVisible
  Blad1.Activate
  HideAll
   ThisWorkbook.Save
  
  End Sub
  
Private Sub Workbook_Open()
    
    UnHideAll
    Blad2.Activate
      
  Blad1.Visible = xlSheetHidden
   
    
End Sub

Private Sub HideAll()
    'Blad1.Visible = xlSheetVisible
    Blad2.Visible = xlSheetHidden
    Blad3.Visible = xlSheetHidden
    
       
       
    
End Sub
Private Sub UnHideAll()
    
    'Blad1.Visible = xlSheetHidden
    Blad2.Visible = xlSheetVisible
    Blad3.Visible = xlSheetVisible
    
      
    
End Sub

geeft aan of macro's beveiligd zijn of niet. werklblad 2 en 3 bevatten data
de code werkt prima, echter bij het afsluiten komt blad 1 enkele seconden in beeld.
zia vb kan dit eventueel anders?

 

[huijb]

Voordat je het bestand sluit doet de code dit;

Blad1.Activate

 

[westra77]

dit klopt
ook als ik deze regel delete gebeurt hetzelfde?

 

[huijb]

Is dit wat je bedoeld

 

[westra77]

nee, althans deze werkt bij mij niet.
in mijn formule wordt blad 2 en 3 weergegeven, indien macro's worden ingeschakeld.
indien er wordt gekozen om de macro's uit te schakelen, dan verschijnt blad 1.
in jou aangepaste versie verschijnt blad 1 niet als macro niet worden uitgeschakeld.
het is bedoeld als hulpmiddel voor gebruikers die minder bekend zijn met excel en bij het openen kiezen voor macro's uitschakelen, deze gebruikers krijgen dan een melding (blad 1) dat ze het werkblad af moeten sluiten en alsnog de macro's moeten inschakelen

 

[huijb]

Voor een werkelijke oplossing moet je dan even wachten op de echte experts. :thumb:

 

[Cobbe]

Is zoiets misschien de bedoeling?

obbe

 

[westra77]

blad 3 is nu niet meer zichtbaar.
mischien voor de duidelijkheid:
indien wordt gekozen voor macro's inschakelen moeten tabblad 2 en 3 zichtbaar worden.
indien wordt gekozen voor macro's uitschakelen moet alleen tabblad 1 zichtbaar worden.
bij het afsluiten of opstarten wil ik liever niet dat tabblad 1 enkele seconden in het zicht komt. bij bovenstaande verebteringen gebeurt dit nog steeds.