Top-Themen

Aktuelle Themen (A bis Z)

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 Mit VBA Makrosicherheit ändern

Mitglied: mtriebler

mtriebler (Level 1) - Jetzt verbinden

26.07.2009, aktualisiert 10:46 Uhr, 7304 Aufrufe, 5 Kommentare

Problem: Verändern der Makrosicherheit der geöffneten Word-Datei mit VBA ??
(oder löschen des laufenden Makros ??)

Die Aufgabenstellung ist folgende:

Mit einem Makro wird bewirkt, daß Anwender, die nicht fit sind in Windows ihre Dokumente in einheitlicher Form (Dateinamen) ins richtige Verzeichnis speichern, wo sie später weiter bearbeitet werden können.

Lösung, so weit ich gekommen bin:

Das Dokument wird geöffnet. Mit InputBox() werden in Autoopen() 2 Informationen abgefragt (Schreiber bzw. Topic und das Datum, das im Dateinamen erscheinen soll).
Diese Daten werden auch ins Dokument übernommen (weil sie da gebraucht werden)

Dann wird das Dokument sofort mit Ursprungsnamen, ergänzt um die beiden Informationen, ins Zielverzeichnis gespeichert. Jetzt steht es für weitere Bearbeitung zur Verfügung.
Das Ausgangsdokument bleibt unverändert.

Problem, noch nicht gelöst:

Beim Öffnen der erzeugten Datei startet Autoopen() logischerweise wieder. Das ist überflüssig, und wenn die Anwender nicht sofort "Abbrechen" anklicken, besteht die Gefahr die alten Werte zu überschreiben.

Also möchte ich, daß Autoopen in der zweiten Datei

- entweder nicht mehr ausgeführt wird ( wenn das irgendwie geht)
- oder verschwindet. (Es schadet nichts, wenn das Makr jetzt abbricht. Hauptsache, die Anwender landen im Word-Dokument)

Gibts da eine Lösung?

mtiebler
Mitglied: 76109
26.07.2009 um 11:52 Uhr
Hallo mtriebler!

Dann füge doch einfach in Autoopen einen Test ein, der prüft, ob das Document bereits eine Dateinamenserweiterung enthält.

So in der Art:
01.
if IsDate(Right(ThisDocument.Name, 10)) Then Exit Sub
Gruß Dieter
Bitte warten ..
Mitglied: miniversum
26.07.2009 um 12:00 Uhr
Möglichkeit 1:
Überprüfe im Sutoopen ob der Dateiname dem Namen der Vorlagendatei entspricht. Wenn nicht wird das Makro beendet.
Möglichkeit2:
Die informationen wirst du ja dneke ich, wenn sie auch im Dokument verwendet werden sollen, wahrhscienlich in Feldern hinterlegen (wenn dem nicht so ist gib bescheid). Du musst also nur in der Autoopen funktion diese Felder abfragen und kontrollieren ob ihnen bereits Werte zugewiesen wurden. Wenn ja wird das Makro beendet.
Bitte warten ..
Mitglied: mtriebler
26.07.2009 um 12:11 Uhr
Herzlichen dank, alle Vorschläge helfen mir weiter mtriebler
Bitte warten ..
Mitglied: mtriebler
26.07.2009 um 12:12 Uhr
Gute Idee, aber das datum wird per Hand eingegeben, da es nicht identisch sein muß mit dem Bearbeitungsdatum. (z.B. "Protokoll vom..."

Werde Deinen Rat aber befolgen bzw. variieren, indem ich abfrage, ob eine Zahl im Dateinamen vorkommt. Das müßte klappen. Danke
Bitte warten ..
Mitglied: 76109
26.07.2009 um 12:32 Uhr
Hallo mtriebler!

Das könntest Du mit Like sehr einfach überprüfen z.B.:
If ThisDocument.Name Like "*##.##.*" Then Exit Sub

(#) steht für einen x-beliebigen numerischen Wert. Das Format entsprechend anpassen.

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Dateinamen per VBA Marko ändern
gelöst Frage von mreskeMicrosoft Office13 Kommentare

Hallo ich möchte per Doppelklick einen über eine Inputbox vorgegebenen Dateinamen ändern: zum Hintergrund: ich habe ein Excel Datenblatt, ...

VB for Applications

Standarddrucker für alle Excelmappen per VBA ändern

gelöst Frage von kono49VB for Applications18 Kommentare

Hallo, liebes Forum! Ich möchte generell den Standarddrucker für alle Excelmappen beim öffnen ändern. Bekomme das irgendwie nicht hin, ...

Microsoft Office

Registersteuerelement Beschriftung per VBA ändern Access 2010

Frage von karlchristianMicrosoft Office1 Kommentar

Hallo und guten Abend , vielleicht einen Gedankenfehler, aber ich bekomme es nicht hin ein Registersteuererelement per VBA namentlich ...

Microsoft Office

Excel VBA jede Zelle in Bereich (Range) ändern (+1)

gelöst Frage von ggforumMicrosoft Office3 Kommentare

Tabelle mit etlichen Click-Buttons, denen unterschiedliche Makros zugeordnet sind. 1. Bereiches (Range) "ohneX" sollten sich um z.B. 1 erhöhen, ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware11 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...

VB for Applications
VBScript mit WINscp für einfachen FTP Transfer und nachträglichem verschieben der Datei in ein erledigt Verzeichnis
Frage von KeiosIDVB for Applications9 Kommentare

Hallo, leider soll ich auf den neueren Servern(Win2016R2) keine *.Bat Dateien mehr laufen lassen. Hier soll nun alles über ...