Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Password-Schutz deaktivieren und aktivieren
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
nurso
Newbie
Newbie


Anmeldedatum: 21.07.2007
Beiträge: 38

BeitragVerfasst am: 25.09.2007, 16:38 Nach oben

Hallo,

habe folgendes Problem: Habe über VBA einige CommandButton programmiert. Diese sollen Bereiche bzw. Zeilen ein- oder ausblenden funzt bestens. Zusätzlich stellen sie den Blattschutz kurz aus und dann wieder an.

Nun möchte ich das dieses Passwort welches im Makro programmiert ist sich auf eine Zelle in excel Bezieht so das ich nur die Zelle ändern muss um das Passwort zu ändern. Habe mehrere Buttons eingebaut mit ähnlichen Funktionen hier mal ein Beispiel:

Private Sub Abwärmeanlage_Click()
Sheets("Hauptübersicht").Unprotect Password:="ergion"

->hier soll die Zelle eingebaut werden bzw. dessen Inhalt übernommen werden???

Rows("45:62").Hidden = False
Sheets("Laufende Kosten").Rows("9:10").Hidden = False
Sheets("Laufende Kosten").Rows("29:30").Hidden = False
Sheets("Laufende Kosten").Rows("49:50").Hidden = False
Sheets("Laufende Kosten").Rows("73:78").Hidden = False
Sheets("Hauptübersicht").Protect Password:="ergion"
End Sub

Ich hoffe ich konnte mein Problem gut beschreiben und bedanke mich im voraus für alle Antworten.

Gruß Tobi
Benutzer-Profile anzeigenPrivate Nachricht senden
schnake
User mit gefährlichem Halbwissen
User mit gefährlichem Halbwissen


Anmeldedatum: 17.11.2006
Beiträge: 128

BeitragVerfasst am: 07.10.2007, 16:09 Nach oben

esetze :
Sheets("Hauptübersicht").Unprotect Password:="ergion"

durch:
Sheets("Hauptübersicht").Unprotect Password:=Sheets("Hauptübersicht").Range("ZELLE")

Zelle= zb. F16, oder A1 (wichtig ist nur das du sie auserhalb des Zugriffbereiches der User postierst, diesen evtl mit ScrollArea begrenzen
und die farbe auf weiss setzen falls er doch mal zufällig dorthinkommt.

die zelle wo das Passwort drinsteht mit schützen weil sonst wenn es geändert wird wärend das blatt geschützt ist probleme beim aufheben des blattschutzes gibt.
Benutzer-Profile anzeigenPrivate Nachricht senden
nurso
Newbie
Newbie


Anmeldedatum: 21.07.2007
Beiträge: 38

BeitragVerfasst am: 08.10.2007, 07:10 Nach oben

Hallo,

funzt bestens. Vielen Dank und Gruß Tobi
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge hyperlink mit makro aktivieren? ava_119 Microsoft Excel Hilfe 0 20.02.2008, 08:40 Letzten Beitrag anzeigen
Keine neuen Beiträge Office Word aktivieren Steffie Microsoft Word Hilfe 9 09.01.2008, 23:12 Letzten Beitrag anzeigen
Keine neuen Beiträge Kopf-/Fußzeile vom Schutz rausnehmen jessica_2007 Microsoft Word Hilfe 4 08.01.2008, 16:53 Letzten Beitrag anzeigen
Keine neuen Beiträge Kann Hilfefenster nicht aktivieren Knut Nicolaus Microsoft Word Hilfe 3 30.12.2007, 12:54 Letzten Beitrag anzeigen
Keine neuen Beiträge Schutz mit Gültigkeit msdd79 Microsoft Excel Hilfe 0 16.11.2007, 13:33 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de