Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Geschützte Datei ohne Kennwortschutz abspeichern in VBA (Passwort bekannt)

Frage Entwicklung VB for Applications

Mitglied: jaydotkay

jaydotkay (Level 1) - Jetzt verbinden

17.02.2014 um 11:34 Uhr, 3469 Aufrufe, 2 Kommentare

Hallo werte Kollegen,

ich hänge seit längerem an einem Problem, zu dem ich bisher leider keine Lösung gefunden habe. Wahrscheinlich aber gibt es eine einfache Lösung, die ich nicht finde... (arbeite noch nicht so lange mit VBA).

Mein Makro öffnet eine passwortgeschützte Dokumentenvorlage, kopiert Daten hinein und speichert dann dieses neue Dokument unter neuem Namen ab. Mein Problem: Das neue Dokument soll dann nicht passwortgeschützt sein.

Hier die Stelle im Skript mit einem meiner kläglichen Versuchen:

'hier wird die neue Datei abgespeichert:
strNewFileName = strNewFileName & "\" & strInputWorksheetName & "_ausgewertet.xlsx"
ActiveWorkbook.Unprotect strPasswordWorkbook
ActiveWorkbook.SaveAs strNewFileName
ActiveWorkbook.Close
'...

Die Unprotect-Methode hat einfach keine Wirkung. Die gespeicherten Dateien sind weiterhin geschützt, obwohl es in der Hilfe heißt "Unprotect: Removes protection from the workbook."
(SaveAs funktioniert auch ohne Unprotect.)

Die "Makro aufzeichnen"- Funktion ignoriert meine Handlungen, wenn ich es manuell rausnehme das Passwort.


Kann mir jemand weiterhelfen?

Vielen, vielen Dank und Grüße!
Mitglied: jaydotkay
17.02.2014 um 12:21 Uhr
Habe die Lösung gefunden:

ActiveWorkbook.Unprotect strPasswordWorkbook
ActiveWorkbook.SaveAs strNewFileName, Password:=""
ActiveWorkbook.Close

Es kann manchmal so einfach sein...

MfG
Bitte warten ..
Mitglied: colinardo
17.02.2014, aktualisiert um 12:32 Uhr
Hallo jaydotkay, Willkommen im Forum!
so wie dein Code aussieht entfernst du nicht das Passwort deiner geöffneten Dokumentvorlage sondern in der, in der sich das Makro befindet (ActiveWorkbook).
Erstelle also am besten eine Variable die die geöffnete Vorlage enthält und führe die Befehle darauf aus.
Beispiel:
01.
set wbVorlage = Workbooks.Open("C:\Testvorlage.xlsx") 
02.
strNewFileName = strNewFileName & "\" & strInputWorksheetName & "_ausgewertet.xlsx" 
03.
wbVorlage.Unprotect strPasswordWorkbook 
04.
wbVorlage.SaveAs strNewFileName 
05.
wbVorlage.Close
Außerdem solltest du die Protection ja vor dem Einfügen der Daten in das Sheet entfernen.

Oder ist dein Excel-File mit einem "Öffnen" Passwort versehen? Dann wird das anders gemacht, dieses wird mit
ActiveWorkbook.Password = ""
entfernt, oder bei der SaveAs-Methode, ein leeres angegeben.

-edit- hat sich ja erledigt, das zweite war's also

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (44)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2012 R2 - Zugriff Verweigert bei jeglicher Tätigkeit (13)

Frage von DarkLevi zum Thema Windows Server ...