Снегопат

$engine JScript
$uname my_macros
$dname Мои макросы
$addin global
$addin stdcommands
$addin stdlib

var мВызовИзМакроса = false

events.connect(windows, "onDoModal", SelfScript.self, "onMessageBoxSetPassword");

function onMessageBoxSetPassword(dlgInfo) {
   if (мПарольНаМодульПоУмолчанию == ""){
      return macrosОткрытьОсновнуюФорму()
   }
   
    if ((dlgInfo.stage==openModalWnd) && (dlgInfo.Caption=="Защита модуля") && (мВызовИзМакроса==true)){
        dlgInfo.form.getControl("Password").value=мПарольНаМодульПоУмолчанию;
        dlgInfo.form.getControl("ConfirmPassword").value=мПарольНаМодульПоУмолчанию;
       
        new ActiveXObject("WScript.Shell").SendKeys("^~"); // Ctrl+Enter
    }
}

мФормаНастройки=null

// Зададим путь в профайле
var pflMyModulePass = "MyScript/ModulePass"

// Восстановим настройки
profileRoot.createValue(pflMyModulePass, "", pflSnegopat)

var мПарольНаМодульПоУмолчанию = profileRoot.getValue(pflMyModulePass)