WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Software

Software Rat & Tat bei Softwareproblemen

Microsoft KARRIERECAMPUS

Antwort
 
Themen-Optionen Ansicht
Alt 04.10.2005, 16:59   #1
testi
Veteran
 
Registriert seit: 22.04.2004
Alter: 51
Beiträge: 216


Standard

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.
testi ist offline   Mit Zitat antworten
Antwort


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 06:46 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag