raccoon588
Board Regular
- Joined
- Aug 5, 2016
- Messages
- 118
i have the following code that saves a copy of a file to a location. Is it possible to make it save the copy as a read only?
Code:
Sub Button28_Click()
ActiveSheet.Unprotect "987654"
Dim nom As String
Dim path As String
If Range("K45") <> 34 Then
MsgBox ("Review Your Entries, Something Was Missed"), ActiveSheet.Protect, exitsub
Else
path = "\\hinas1\MFG\LED\SSL Paperwork\P552P558"
nom = Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00") & " (" & Hour(Time) & "-" & Minute(Time) & ").xlsm"
ActiveWorkbook.SaveCopyAs path & "\" & nom
rep = MsgBox("Submited")
ActiveSheet.Protect "987654"
Application.DisplayAlerts = False
Workbooks("P55XFirstArticle.xlsm").Close
End If
End Sub