ユーザーに新しい名前ですぐに保存してもらいたいスプレッドシートテンプレートを作成しました。新しい名前を作成して[名前を付けて保存]ダイアログボックスに配置するVBAコードがあります。
ファイルが開かれるとすぐにファイルを「名前を付けて保存」するようにユーザーに通知するポップアップが欲しいのですが。テンプレートを開いた場合にのみ表示し、新しい名前で保存した後は表示しないようにします。
Private Sub Workbook_Open()
MsgBox "You MUST use 'Save As' to save this file with a new name before editing"
End Sub
ファイルを別の名前で保存したら、ポップアップを表示したくありません。潜水艦がファイルの名前を読み取ることができ、それが事前定義されたテンプレート名「FieldTimeTemplate.xlxm」と一致するかどうかを考えていました。
これは新しい質問かもしれませんが、ユーザーが「名前を付けて保存」ではなく「保存」を押した場合に、ユーザーを防止または通知できるスクリプトがあると便利です。
助けてくれてありがとう。
アクティブなワークブックの名前を確認した後、テンプレートを開いたときにプロンプトとして保存を開くことを検討できます。テンプレートをキャンセルまたは上書きすると、ブックは閉じます。
Private Sub Workbook_Open()
NewName = ActiveWorkbook.Sheets(1).Cells(1, 27).Value
If ThisWorkbook.Name = "Field Time Template.xlsm" Then
If Application.Dialogs(xlDialogSaveAs).Show(NewName) Then
If ThisWorkbook.Name = "Field Time Template.xlsm" Then ActiveWorkbook.Close savechanges:=False
Else
ActiveWorkbook.Close savechanges:=False
End If
End If
End Sub
このように、私はあなたの2番目の質問はもはや重要ではないと思います。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加