Skip to content

Instantly share code, notes, and snippets.

View motoraku's full-sized avatar

motoraku

View GitHub Profile
@motoraku
motoraku / PartialEncryptStringTripleDES.vba
Created December 13, 2015 08:58
Excel VBA 暗号化と復号化（TripleDES）※一部 : Triple DES Encryption and Decryption (Partial)
'***************************************************************************************************
'関数呼び出し
'***************************************************************************************************
Sub 暗号化()
MsgBox "password -> " & EncryptStringTripleDES("password")
End Sub
Sub 復号化()
MsgBox "6pbpGQOC73TWEISe0qnwQA== -> " & DecryptStringTripleDES("6pbpGQOC73TWEISe0qnwQA==")
End Sub
@motoraku
motoraku / EncryptStringTripleDES.vba
Last active February 18, 2022 08:39
Excel VBA 暗号化と復号化（TripleDES） : Triple DES Encryption and Decryption
'***************************************************************************************************
'オプション:
'***************************************************************************************************
'事前の変数宣言(Dim [変数] As [型])を必須とする
Option Explicit
'***************************************************************************************************
'定数宣言
'***************************************************************************************************
@motoraku
motoraku / OfficeOpenReadOnly.vbs
Last active June 30, 2022 06:44
Officeファイルを読み取り専用で開くスクリプト Script to open Office files (excel, word, powerpoint, visio, project) in 'Read Only'
'1.オプション指定
Option Explicit
'2.変数宣言
Dim strFileName
Dim objApp
Dim wshShell
Dim fsObj
Dim ext
Dim excelExt