- #1
A
a234781
Aktives Mitglied
Themenersteller
- Dabei seit
- 10.02.2002
- Beiträge
- 42
- Reaktionspunkte
- 0
- Ort
- Zug
Hallo zusammen
Da ich von VBA keine grosse Ahnung habe bitte ich um die Hilfe von euch Speziallisten zum lösen des nachfolgenden ?Problems?.
In einer Excel Arbeitsmappe (Version 2003) mit 16 Blättern darf ein User (A) alles bearbeiten alle andern User dürfen nur Einträge in freigegebene Zellen machen. Alle Arbeitsblätter sind mit einem Blattschutz versehen.
Ausgangssituation:
Bei User A habe ich in ?\XLSTART\Personl.xls? die Makros ?AlleBlaetter_Schuetzen? und ?AlleBlaetter_Oeffnen? abgelegt welche er über Alt+F8 ausführen kann.
Wunschsituation:
Für User A, abhängig vom Anmeldenamen, steht ein ToggleButton oder etwas ähnliches zur Verfügung mit welchem er die zwei Makros starten kann ohne dass die Makros beim User A im ?Personl.xls? installiert werden müssen.
Makro AlleBlaetter_Schuetzen:
Sub AlleBlaetter_Schuetzen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect Password:=Test, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Makro AlleBlaetter_Oeffnen
Sub AlleBlaetter_Oeffnen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Unprotect Password:=Test
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Besten Dank zum Voraus
Gruss zoggeli
Da ich von VBA keine grosse Ahnung habe bitte ich um die Hilfe von euch Speziallisten zum lösen des nachfolgenden ?Problems?.
In einer Excel Arbeitsmappe (Version 2003) mit 16 Blättern darf ein User (A) alles bearbeiten alle andern User dürfen nur Einträge in freigegebene Zellen machen. Alle Arbeitsblätter sind mit einem Blattschutz versehen.
Ausgangssituation:
Bei User A habe ich in ?\XLSTART\Personl.xls? die Makros ?AlleBlaetter_Schuetzen? und ?AlleBlaetter_Oeffnen? abgelegt welche er über Alt+F8 ausführen kann.
Wunschsituation:
Für User A, abhängig vom Anmeldenamen, steht ein ToggleButton oder etwas ähnliches zur Verfügung mit welchem er die zwei Makros starten kann ohne dass die Makros beim User A im ?Personl.xls? installiert werden müssen.
Makro AlleBlaetter_Schuetzen:
Sub AlleBlaetter_Schuetzen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect Password:=Test, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Makro AlleBlaetter_Oeffnen
Sub AlleBlaetter_Oeffnen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Unprotect Password:=Test
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Besten Dank zum Voraus
Gruss zoggeli