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, 3182 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...

Mit freundlichen Grüßen
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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (17)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (14)

Frage von SarekHL zum Thema DSL, VDSL ...