Excel VBA シートの保護と解除

（対象）Excel　VBA

（確認）Excel2010、2013


今回はExcelでシートの保護と解除をする時の
動作です。

普段はユーザーに触って欲しくないけれど
マクロで作業中はセルの変更や行列の追加削除を
行いたい。

そんな時は作業中に保護・解除を行ってみましょう。
どちらも一文で行えます。

---

'===========================================================

' シートの保護

'===========================================================

Sub SheetProtect()

  '■アクティブシートの保護

  'Password　　　　　＝　パスワード

  'userInterfaceOnly ＝　動作を制御する対象をユーザーの操作のみにする

  ' 　　　　　　　　　　（宣言しないとマクロ動作も制御してしまう）

  

  '１．パスワードつき

  ActiveSheet.Protect Password:="password", userInterfaceOnly:=True

  

  '２．パスワードなし

  'ActiveSheet.Protect, userInterfaceOnly:=True

End Sub

'===========================================================

' シートの保護を解除

'===========================================================

Sub SheetUnProtect()

  '■アクティブシートの保護を解除

  '１．パスワードつき

  ActiveSheet.Unprotect Password:="password"

  

  '２．パスワードなし

  'ActiveSheet.Unprotect

End Sub

---

保護と解除は割と使うことが多い作業でしょうか。


では今回はこの辺りで。

アイコンゲッター

＜ソフト名＞

　アイコンゲッター（IconGetter）

　

　

＜用途＞

　１．アプリケーション（「.exe」形式のファイル）のアイコンを取得

　２．取得したファイルを任意のサイズで保存（PNG形式のみ）

　

　

＜開発言語＞

　VB2010

　

　

＜使用例＞

　１．「このアプリケーションのアイコンが欲しい」と思った時

　２．作成者は別ソフトの「Myショートカット」のアイコン登録用に

　　　作成しました

　

　

＜プリントスクリーンと各用途＞

　１．メイン画面

　 

　

　

　　＜上＞

　　　何も登録していない状態のメイン画面

　　

　　＜下＞

　　　画像を表示した状態

　　　

　　　

　　＜動作＞

　　１）「アプリケーションを選択」

　　　　→「.exe」拡張子のアプリケーションを選択する

　　　　

　　　　

　　　　

　　２）「表示」

　　　　→１で選択したアプリケーションのアイコンを表示する

　　　　

　　３）「画像を取得」

　　　　→表示されている画像をPNG形式で指定したフォルダに保存する

　　　　

　　　　

　　　　

　　４）「幅」・「高さ」

　　　　→ここで指定したサイズでファイルを保存する

　　　　

　　５）「クリア」

　　　　→画像のクリア、幅・高さに初期値格納、フォルダパス・ファイル名に空白格納

　　

　　６）「フォルダパス」

　　　　→該当アプリケーションのフォルダパス。

　　　　　ファイル選択時に自動入力されるが、直接入力も可

　　

　　７）「ファイル名」

　　　　→該当アプリケーションのファイル名。

　　　　　ファイル選択時に自動入力されるが、直接入力も可

　

　

＜ファイル＞

　アイコンゲッター

　（クリックするとダウンロードが始まります）

　

　

　（内容物）

　　　１．本体（IconGetter.exe）

　　　２．ReadMe_IconGetter.txt

　

　

　（ウィルス検査）

　　　済み。異常なし

　

　

　（注意１）

　　　動作には十分注意して作成しましたが、

　　　ダウンロードして使用する場合は自己責任で

　　　お願いします。

　

　

　（注意２）

　　　GoogleChromeでダウンロードしようとすると

　　　ブラウザの仕様上以下のメッセージが出ますが

　　　その場合は「継続」を押してください

　　
　　　

　使用していて気になった点あればご報告いただければと思います。

　※完全に直す、とは言い切りませんが。。。

　使用時にエラーが表示された場合は、

　　１．エラー内容

　　２．エラーが表示された時の動作

　を、ご連絡ください

Myショートカット

＜ソフト名＞

　Myショートカット

　

　

＜機能＞

　１．ファイル、Webページ、アプリケーション、フォルダへの

　　　ショートカットの作成・編集・削除

　

　

＜開発言語＞

　VB2010

　

　

＜使用用途＞

　１．よく使用するソフトやページにボタン1つで飛ぶ

　２．クイック起動やデスクトップ上のショートカットの代替

　　　＝省スペース化

　　　（会社のPCがノートになってデスクトップが狭かったので。。。）

　

　

＜ファイル＞

　Myショートカット

　（クリックするとダウンロードが始まります）

　

　

　（内容物）

　　　１．本体（Myショートカット.exe）

　　　２．ReadMe_MyShortCut.txt

　　　３．「data」フォルダ

　　　　　－DataText.txt

　　　４．「image」フォルダ

　　　　　－001_Files.png

　　　　　－002_Link.png

　　　　　－003_Application.png

　　　　　－004_Folder.png

　　　　　－005_firefox.png

　　　　　－006_chrome.png

　　　　　－007_Excel.png

　　　　　－008_Word.png

　　　　　－009_music.png

　　　　　－010_mail.gif

　　　　　－011_JPG.png

　　　　　－012_PNG.png

　　　　　－013_GIF.png

　　　　　－014_BMP.png

　

　

　（ウィルス検査）

　　　済み。異常なし

　

　

　（注意１）

　　　動作には十分注意して作成しましたが、

　　　ダウンロードして使用する場合は自己責任で

　　　お願いします。

　

　

　（注意２）

　　　GoogleChromeでダウンロードしようとすると

　　　ブラウザの仕様上以下のメッセージが出ますが

　　　その場合は「継続」を押してください

　　 
　　　

詳細の説明は以下より

Excel VBA ブックを閉じる時他に開いているか確認

（対象）Excel　VBA
（確認）Excel2010、2013


今回はExcelでブックを閉じる時の確認動作です。

多分2010からだった気がしますが、2003の時の
閉じ方をすると、中身だけ消えてExcel自体が
残った状態になってしまいます。

でも全部消えるようにすると、複数ブックを
開いている時に困る。


そんな時は以下の通りの判断なんてどうでしょう。

※いらない部分もいくつかあるかもです

―――――――――――――――――――――――――――

＜変数＞

Dim MSG   As String　

Dim EndFG As Boolean

Dim WB1   As Workbook

＜呼び出し＞

'============================================

' ブックを閉じる時

'============================================

Sub auto_close()

    CloseThisFile

End Sub

※「auto_close」についてはこちらの記事

＜本文＞

※今回はExcelのVBAを保存しているファイルである
「PERSONAL.XLS」を含めて指定しています。


'===========================================================

' Excelの終了

'===========================================================

Sub CloseThisFile()

  '■終了の仕方を確認

  MSG = MsgBox("Excelを保存して終了する場合は「はい」を、" & vbCrLf & vbCrLf & _

               "保存しないで終了する場合は「いいえ」を押してください", vbQuestion + vbYesNoCancel, "【終了確認】")

  

  

  '■終了の選択によって閉じ方を変更

  EndFG = False

  If MSG = vbYes Then

    '＜保存して閉じる＞

    '△開いているのが1つのとき、もしくは2つで片方が「PERSONAL.XLS」の場合は保存してアプリケーションごと閉じる
    '※もうひとつ確実に開いているファイルがない場合はこの条件は前者だけでOK
    '※「BooksCheck」は上のファイルがない場合は不要の処理

    BooksCheck

    If Workbooks.Count = 1 Or (Workbooks.Count = 2 And EndFG) Then ThisWorkbook.Save: Application.Quit

    

    '△それ以外は普通にClose使って閉じる（保存する）

    ThisWorkbook.Close savechanges:=True

    

  ElseIf MSG = vbNo Then

    '＜保存しないで閉じる＞

    '△開いているのが1つのとき、もしくは2つで片方が「PERSONAL.XLS」の場合はアプリケーションごと閉じる

    BooksCheck

    If Workbooks.Count = 1 Or (Workbooks.Count = 2 And EndFG) Then Application.Quit

    

    '△それ以外は普通にClose使って閉じる（保存しない）

    ThisWorkbook.Close savechanges:=False

  End If

End Sub

※今回は「PERSONAL.XLS」があるかどうか。
確実に同時に開いている他ファイルがない場合は
このプロシージャは不要。

'===========================================================

' ブックの確認

'===========================================================

Sub BooksCheck()

  '■開いているブックをひとつずつ確認

  ' （この例の場合は「PERSONAL.XLS」の有無）

  For Each WB1 In Workbooks

    If WB1.Name = "PERSONAL.XLS" Then EndFG = True: Exit For

  Next

End Sub

―――――――――――――――――――――――――――

こんな感じです。

ちなみに終了確認の時のダイアログはこんな感じ↓



余計な部分もありますが、何か一緒に開いている物がある、
という場合には重宝したりします。（個人的には）


では今回はこの辺りで。

CountDown ～減丸～

■フリーソフト■

＜ソフト名＞

　CountDown　～減丸～

　

　

＜機能＞

　１．指定した目標日付・目標時間までの日付と時間のカウントダウン

　２．設定した日から何日経っているかの表示

　

　

＜開発言語＞

　VB2010

　

　

＜使用用途＞

　１．目標日付までのカウントダウン

　　（作成者は締め切りまでのカウントダウン用に作りました）

　

　

＜プリントスクリーンと各用途＞

　１．メイン画面

　
　※通常サイズ

　
　
　※設定を開いた状態
　
　

　　１）現在日時　→　パソコンから取得

　　２）目標日付　→　「yyyy/mm/dd」の形式で設定
　　　　　　　　　　　（例：2014/05/05、2014/12/15、など）

　　３）目標時間　→　特にない場合はそのままでも良し

　　４）「設定」ボタン押下

　　　　→　目標日時が決められている場合はカウント開始。

　　　　　　過去の日付が設定された/変更なしで押した場合は翌日日付を設定

　　　　　　

　　　　　　

　　

　　５）経過日数　→　設定した日から何日経過しているか（設定日が1日目換算）
　　　　
　　　　　※経過観測
　　　　　
　　　　

　　６）設定を初期化する　→　目標日時を初期化する

　　７）「機能設定を開く↓/閉じる↑」

　　　　[1]表示形式

　　　　　　・日のみ　：　○○日

　　　　　　・週日　　：　■■週間 ○○日

　　　　　　・月日　　：　△△ヶ月 ○○日

　　　　　　・年月日　：　××年 △△ヶ月 ○○日

　　　　[2]時間表示

　　　　　　・する　　：　上の表示に時間をプラス（hh時間 mm分 ss秒
　　　　　　　　　　　　　→　例：20時間 05分 46秒）

　　　　　　・しない　：　時間を表示しない

　　　　[3]期日を過ぎた後の表示

　　　　　　・初期値に戻す　　　　：　「1999/01/01　00時00分00秒」に戻す

　　　　　　・マイナス表示にする　：　各数字の前にマイナスをつけて表示

　　　　　　

　　　　　　　

　

＜追加　ここから＞

１．折りたたみボタン追加。経過日付部分をたためるように
　　


＜追加　ここまで＞

　

＜ファイル＞

　CountDown　～減丸～

　（クリックするとダウンロードが始まります）

　

　（内容物）

　　　１．本体（CountDown ～減丸～.exe）

　　　２．ReadMe_GenMaru.txt

　

　

　（ウィルス検査）

　　　済み。異常なし

　

　

　（注意１）

　　　動作には十分注意して作成しましたが、

　　　ダウンロードして使用する場合は自己責任で

　　　お願いします。

　

　

　（注意２）

　　　GoogleChromeでダウンロードしようとすると

　　　ブラウザの使用上以下のメッセージが出ますが

　　　その場合は「継続」を押してください

　　

＃使用していて気になった点あればご報告いただければと思います。

＃※完全に直す、とは言い切りませんが。。。

＃使用時にエラーが表示された場合は、

＃　１．エラー内容

＃　２．エラーが表示された時の動作

＃を、ご連絡ください