![]() |
![]() |
|
![]() |
![]() |
|
Software Rat & Tat bei Softwareproblemen |
![]() |
|
Themen-Optionen | Ansicht |
|
![]() |
#1 |
Veteran
![]() Registriert seit: 22.04.2004
Alter: 51
Beiträge: 216
|
![]() In VBA würde es so aussehen:
Code:
Sub Makro() 'Blattschutz aufheben ActiveSheet.Protect Password:="test", DrawingObjects:=False, Contents:=False, Scenarios:=False 'Dialog zur Farbwahl anzeigen Application.Dialogs(xlDialogPatterns).Show 'Nach beendigen des Dialogs Blattschutz wieder aktivieren ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
____________________________________
Wenn Baumeister Häuser bauten, so wie Programmierer Programme schreiben, dann würde der erste Specht der vorbei kommt die Zivilisation zerstören. |
![]() |
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|