|
Excel : Schreibschutz+Makros
Thomas Harmening am 05.10.2009 um 13:15 Uhr (0)
hmmm, bei mir wird kein PW abgefragt
| | In das Form Excel wechseln |
|
Excel : Blattschutz aufheben
Thomas Harmening am 12.07.2007 um 17:56 Uhr (0)
hmm.. die Mappe ist freigegeben - so steht es invormativ in der oberen Fensterzeile ;-) ein Deaktivieren der Freigabe könnte zum Ziel führen ;-)
| | In das Form Excel wechseln |
|
Excel : Schreibschutz+Makros
Thomas Harmening am 05.10.2009 um 12:33 Uhr (0)
Code: ActiveSheet.Protect UserInterfaceOnly:=True arbeitet auch in einem geschützten Arbeitsblattdein code;-) angucken und nicht anfassen, funktioniert nur, wenn der andere keinen höheren Skill hat... ;-)
| | In das Form Excel wechseln |
|
Excel : Excel-Datei aus Sprungliste schreibgeschützt öffnen
Thomas Harmening am 25.10.2016 um 13:30 Uhr (1)
Zitat:Original erstellt von runkelruebe:(Schreibschutz, Mappenschutz, Blattschutz, MSGBox, lustiges Lied) hmmm,Disziplin muss gelebt werden und auch verstanden i.d.R. verzicht ich auf die ersten 3, aber 4 und 5 mache ich gerne (BOFH)- man muss dann halt so programmieren, das beim Fremden die das Dokument in die Finger bekommen 4 und 5 nicht zum tragen kommt :-)
| | In das Form Excel wechseln |
|
Excel : Excel ComandButton mit Passwort
Thomas Harmening am 04.11.2011 um 19:04 Uhr (0)
ja,ja, ich weiss bin mal wieder viel zu spät ;-)wozu Blattschutz aufheben ;-) unten stehender Code fingert nicht an irgendwelchen Blattschutz(~e(n))[~gibt es ein Plural von Blattschutz? ] rum.Code:Sub test()Dim ws As WorksheetDim pt As PivotTableActiveSheet.Protect UserInterfaceOnly:=True arbeitet auch in einem geschützten Arbeitsblatt For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables ws.Protect UserInterfaceOnly:=True ActiveSheet zu ws geändert, da ws ...
| | In das Form Excel wechseln |
|
Excel : Excel Dateien mit Kennwort-Blattschutz ect. finden
Thomas Harmening am 29.11.2011 um 20:33 Uhr (0)
ich nehme mal Nancys Schnippsel aufdefiniere Array mit erlaubten Passwörtern "HUGO", "Benedikt", "Caesar", "Dominik", "NIX" Durchlaufe den OrdnerPrüfe(Unprotect) die Sheets auf erlaubte PW anschliessend setze das PW wieder und stelle Flag auf 1wenn flag = 0 dann war kein PW zutreffend, dann mache Bruteforce auf PW,Anschliessend Setze PW HUGOweiter mit...Code:Sub test() Dim f$, p$, wSheet Dim PWname PWname = Array("HUGO", "Benedikt", "Caesar", "Dominik", "NIX") 5 PW flag = 0 p = "C:xls-testxl" - Pfad ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
