【Snowflake】強い権限を持つロールをユーザーに付与したくないですが、権限調整はしたいです！可能でしょうか？

USE ROLE ACCOUNTADMIN;
USE DATABASE <データベース名>;
USE SCHEMA <スキーマ名>;

-- ロール権限調整用のプロシージャ
CREATE OR REPLACE PROCEDURE GRANT_REVOKE_ROLE_PROCEDURE(
    command string
    , source_role string
    , target_role string
)
RETURNS STRING
LANGUAGE PYTHON
RUNTIME_VERSION = '3.11'
PACKAGES = ('snowflake-snowpark-python')
HANDLER = 'main'
EXECUTE AS OWNER
AS
$$
def main(session, command, source_role, target_role):

    with session:
        if command.upper()=='GRANT':
            query = f"GRANT ROLE {source_role} TO ROLE {target_role}"
        elif command.upper()=='REVOKE':
            query = f"REVOKE ROLE {source_role} FROM ROLE {target_role}"
        else:
            return "そのコマンド入力で受け付けておりません。"
        data = session.sql(query).collect()
    return data
$$
;

-- ロール以外の権限調整用プロシージャ
CREATE OR REPLACE PROCEDURE GRANT_REVOKE_OBJECT_PROCEDURE(
    command string
    , source_object_type string
    , source_object string
    , target_role string
    , privilege_type string
    , future_flag boolean
)
RETURNS STRING
LANGUAGE PYTHON
RUNTIME_VERSION = '3.11'
PACKAGES = ('snowflake-snowpark-python')
HANDLER = 'main'
EXECUTE AS OWNER
AS
$$
def main(session, command, source_object_type, source_object, target_role, privilege_type,future_flag):

    with session:
        if command.upper()=='GRANT':
            if future_flag == True:
                query = f"GRANT {privilege_type} ON FUTURE {source_object_type}S TO ROLE {target_role}"
            else:
                query = f"GRANT {privilege_type} ON {source_object_type} {source_object} TO ROLE {target_role}"
        elif command.upper()=='REVOKE':
            if future_flag == True:
                query = f"REVOKE {privilege_type} ON FUTURE {source_object}s FROM ROLE {target_role}"
            else:
                query = f"REVOKE {privilege_type} ON {source_object_type} {source_object} FROM ROLE {target_role}"
        else:
            return "そのコマンド入力で受け付けておりません。"
        data = session.sql(query).collect()
    return data
$$
;

-- プロシージャが使えるよう、使用権限のみ与えておく(中身の修正などはできない)
GRANT USAGE ON PROCEDURE GRANT_REVOKE_ROLE_PROCEDURE(string,string,string) TO ROLE <権限弱い方のロール>;
GRANT USAGE ON PROCEDURE GRANT_REVOKE_OBJECT_PROCEDURE(string,string,string,string,string,boolean) TO ROLE <権限弱い方のロール>;

CREATE ROLE SOURCE_ROLE_FOR_ST_TEST; -- 付与元のロール
CREATE ROLE TARGET_ROLE_FOR_ST_TEST; -- 付与先のロール

# ブログ用権限調整アプリ
import streamlit as st
from snowflake.snowpark.context import get_active_session

st.title('Snowflake権限管理アプリ')
st.info('OWNERSHIP権限を除き、権限調整をするためのアプリです。', icon="🚨")

session = get_active_session()
future_flag = 'NO'

# オブジェクトの種類を選択(権限の付与元)
source_object_type = st.selectbox('権限を付与元オブジェクトの種類', ['TABLE', 'VIEW', 'SCHEMA', 'DATABASE', 'ROLE'])

# オブジェクトの種類を選択(権限を与える先)
if source_object_type=='ROLE':
    target_object_type = st.selectbox('権限を与えたいオブジェクトの種類', ['ROLE', 'USER'])
else:
    target_object_type = st.selectbox('権限を与えたいオブジェクトの種類', ['ROLE'])

# 権限の種類を選択
if source_object_type=='TABLE' or source_object_type=='VIEW':
    privilege_type = st.selectbox('権限の種類', ['SELECT', 'INSERT', 'UPDATE', 'DELETE'])
    future_flag = st.selectbox('将来権限ですか？', ['NO', 'YES'])
if source_object_type=='SCHEMA' or source_object_type=='DATABASE':
    privilege_type = st.selectbox('権限の種類', ['USAGE'])

if future_flag == 'NO':
    source_object = st.text_input(f'権限を与えたい{target_object_type}名を入力してください','<付与元オブジェクト名>')
target_objcet = st.text_input('権限付与元のオブジェクト名を入力してください', '<付与先オブジェクト名>')

# 権限付与する場合の具体的なSQL
if source_object_type =='ROLE':
    st.write(f'権限を付与する場合は「GRANT ROLE {source_object} TO {target_object_type} {target_objcet}」という内容のSQLを実行します。')
else:
    if future_flag=='YES':
        st.write(f'権限を付与する場合は「GRANT {privilege_type} ON FUTURE {source_object_type}S TO ROLE {target_objcet}」という内容のSQLを実行します。')
    else:
        st.write(f'権限を付与する場合は「GRANT {privilege_type} ON {source_object_type} {source_object} TO ROLE {target_objcet}」という内容のSQLを実行します。')

# 権限を付与するボタンの設定
if st.button('権限を付与'):
    if source_object_type=='ROLE':
        query = session.call('GRANT_REVOKE_ROLE_PROCEDURE','GRANT', source_object, target_objcet)
        st.success(f"ROLE '{target_objcet}' に {source_object_type} '{source_object}' を付与しました。")
    else:
        query = session.call('GRANT_REVOKE_OBJECT_PROCEDURE','GRANT',source_object_type,source_object,target_objcet,privilege_type,future_flag)
        st.success(f"ROLE '{target_objcet}' に {source_object_type} '{source_object}' の {privilege_type}権限を付与しました。")

# 権限を取り外す場合の具体的なSQL
if source_object_type =='ROLE':
    st.write(f'権限を取り外す場合は「REVOKE ROLE {source_object} FROM {target_object_type} {target_objcet}」という内容のSQLを実行します。')
else:
    if future_flag=='YES':
        st.write(f'権限を取り外す場合は「REVOKE {privilege_type} ON FUTURE {source_object_type}S FROM ROLE {target_objcet}」という内容のSQLを実行します。')
    else:
        st.write(f'権限を取り外す場合は「REVOKE {privilege_type} ON {source_object_type} {source_object} FROM ROLE {target_objcet}」という内容のSQLを実行します。')

# 権限を取り外すボタンの設定
if st.button('権限を取り消し'):
    if source_object_type=='ROLE':
        query = session.call('GRANT_REVOKE_ROLE_PROCEDURE','REVOKE', source_object, target_objcet)
        st.success(f"ROLE '{target_objcet}' から {source_object_type} '{source_object}' を取り外しました。")
    else:
        query = session.call('GRANT_REVOKE_OBJECT_PROCEDURE','REVOKE',source_object_type,source_object,target_objcet,privilege_type,future_flag)
        st.success(f"ROLE '{target_objcet}' から {source_object_type} '{source_object}' の {privilege_type}権限を取り外しました。")

DROP PROCEDURE GRANT_REVOKE_ROLE_PROCEDURE(string,string,string);
DROP PROCEDURE GRANT_REVOKE_OBJECT_PROCEDURE(string,string,string,string,string,boolean);
DROP ROLE SOURCE_ROLE_FOR_ST_TEST;
DROP ROLE TARGET_ROLE_FOR_ST_TEST;

session = get_active_session()
# ロールのリスト取得用にSHOW文を実行する
roles = session.sql("SHOW ROLES;")