Gruppe
Dialog
Bereich
Anwendung
Thema
Blattschutzdialog über VBA aufrufen
Problem
Wie kann ich den Blattschutzdialog über VBA aufrufen und den Blattschutz mit oder ohne Kennwort setzen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub BlattSchutzEin()
Application.Dialogs(xlDialogProtectDocument).Show
End Sub
Sub BlattSchutzAus()
ActiveSheet.Unprotect
End Sub