Mam procedurę, która automatycznie otwiera wszystkie pliki.xls w zadanym katalogu - wykonuje zadana procedurę, - po czym zamyka plik.
A dokładniej powinno to robić. Niestety przed wykonaniem każdej procedury dostaje komunikat w stylu
Nie można uruchomić makro, makro może być niedostępne w skoroszycie lub makro nie zostało aktywowane
który mosze potwierdzić.
Pytanie: jak zmodyfikować kod żeby pozbyć się tego potwierdzania.
Pytanie: jak zmodyfikować kod żeby pozbyć się tego potwierdzania.
Sub test()
Dim strBook As String, strDir As String, strSpec As String
Dim objBook As Object
strDir = InputBox("C:\Temp\Test")
strSpec = "*.xls"
strBook = Dir(strDir & "\" & strSpec)
Do Until strBook = ""
Set objBook = Workbooks.Open(strDir & "\" & strBook)
'przykladowa procedura
Dim Cell As Range
For Each Cell In Selection
Cell.Value = Int(Rnd() * 1000)
Next
objBook.Close savechanges:=True
strBook = Dir()
Loop
End Sub |