Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prompt message and Automated saving!
I am trying to prompt users with a message (when they save the file) to fill
in a cell with their LoginName. This LoginName will be used as the filename to save the file automatically. But I am getting program error message followed by crashing of Excel. Please help and advice. Also, can I automate the same process to save the file in a specific folder? Many thanks in advance. Here is the code that I am using below to achieve this: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Have you filled in your LoginName on the first Sheet - (Jan)? Please do so to save this file as Timesheet2005_YourLoginName " Style = vbYesNo Title = "Save Prompt" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ThisWorkbook.SaveAs filename:=Sheets("Jan").Range("Y23") Exit Sub Else Cancel = True End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
help with message prompt | New Users to Excel | |||
how to disable save prompt on closing excel file in automated mode | Excel Discussion (Misc queries) | |||
Message prompt in VBA | Excel Programming | |||
Prompt before saving | Excel Programming | |||
Prompt before saving | Excel Programming |