August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!
Public Function Vorlageoeffnen() Dim dialOpen As Dialog Set dialOpen = Dialogs(wdDialogFileOpen) With dialOpen ' .Name = Application.ActiveDocument.Path ChangeFileOpenDirectory (Application.ActiveDocument.Path) & "\" .Name = "*.xls" .Display strExcelDaten = .Name End With Set doc = Application.ActiveDocument If dialOpen.Name <> "*.xls" Then Ausfuellen Else If doc.ProtectionType = wdNoProtection Then doc.Protect wdAllowOnlyFormFields, NoReset:=True Unload frmWarten Exit Function End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.