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, 3433 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
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Basic
Programmierung von Windows Programmen (9)

Frage von Ghost108 zum Thema Basic ...

C und C++
Fehlendes verständiss von C und C++ (7)

Frage von zelamedia zum Thema C und C ...