Hallo
In Excel kan je je tabblad beveiligen met een wachtwoord en kan je aanvinken wat nog is toegestaan en wat niet.
Echter indien je kolommen hebt die gegroepeerd zijn, kan je deze niet meer openen ne beveiliging, enkel indien je het wachtwoord ingeeft.
Je kan dit oplossen met een macro, en dit werkt eveneens. Echter, zodra je de file sluit en daarna heropent, loopt die macro niet meer automatisch en bijgevolg kan je de gegroepeerde kolommen niet meer openen tenzij je het wachtwoord invult ...
Kan iemand helpen, zodat de macro aanstaat zodra ik de file open?
Ik heb deze codes gebruikt:
Sub EnableOutliningWithProtection()
'PURPOSE: Allow Outline functionality while Sheet is Protected
'Password Protect Current Sheet
ActiveSheet.Protect Password:="", UserInterfaceOnly:=True
'Enable Group Collapse/Expand Capabilities
ActiveSheet.EnableOutlining = True
'Unprotect Sheet
ActiveSheet.Unprotect ""
End Sub
Private Sub Workbook_Open()
Sheets("Sheet1").Protect Password:="", UserInterfaceOnly:=True
Sheets("Sheet1").EnableOutlining = True
End Sub
Verder ken ik heeeel weinig van VBA.
Bedankt !
In Excel kan je je tabblad beveiligen met een wachtwoord en kan je aanvinken wat nog is toegestaan en wat niet.
Echter indien je kolommen hebt die gegroepeerd zijn, kan je deze niet meer openen ne beveiliging, enkel indien je het wachtwoord ingeeft.
Je kan dit oplossen met een macro, en dit werkt eveneens. Echter, zodra je de file sluit en daarna heropent, loopt die macro niet meer automatisch en bijgevolg kan je de gegroepeerde kolommen niet meer openen tenzij je het wachtwoord invult ...
Kan iemand helpen, zodat de macro aanstaat zodra ik de file open?
Ik heb deze codes gebruikt:
Sub EnableOutliningWithProtection()
'PURPOSE: Allow Outline functionality while Sheet is Protected
'Password Protect Current Sheet
ActiveSheet.Protect Password:="", UserInterfaceOnly:=True
'Enable Group Collapse/Expand Capabilities
ActiveSheet.EnableOutlining = True
'Unprotect Sheet
ActiveSheet.Unprotect ""
End Sub
Private Sub Workbook_Open()
Sheets("Sheet1").Protect Password:="", UserInterfaceOnly:=True
Sheets("Sheet1").EnableOutlining = True
End Sub
Verder ken ik heeeel weinig van VBA.
Bedankt !